home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 20 Music & Utilities / TWIXM2.BIN / TWIXM2.7fa7 (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  50.0 KB  |  121 lines
  1. 10 POKE56,32:CLR
  2. 15 X$="ABCDEFGHIJKLMNOPQ":X$=X$+X$+X$+X$+X$:X$=X$+X$+X$:PRINT"[147]":WD=40:TC=4096
  3. 20 DEFFNH(Z)=INT(Z/256):DEFFNL(Z)=Z-256*FNH(Z):BO=53280:BA=BO+1:CR=51200:HT=24
  4. 25 BL$="                                 ":VC=53248:SD=54272:SP=52216:CM=55296
  5. 30 EC=12442:ES=53229
  6. 35 PS(1)=1:PS(2)=40:PS(3)=1:NG(1)=-1:NG(2)=-40:NG(3)=-1:IFPEEK(8211)<>2THEN200
  7. 40 GOTO100
  8. 50 FORK=.TOL:NEXT:RETURN
  9. 100 SYS52320:POKEBO,.:POKEBA,.
  10. 105 PRINT"[150]"SPC(11)"PLEASE CHOOSE ONE.":PRINTSPC(11)"PLEASE[146] CHOOSE[146] ONE[146].
  11. 110 [153][166]5)"PRINTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^":[153][166]5)"(null)"[166]27)"(null)
  12. 115 PRINTSPC(5)"[221]  [158]1. [206][207] [197][216][212][210][193] [211][201][196] [195][200][201][208][153]     [221]":PRINTSPC(5)"[221]"SPC(27)"[221]
  13. 120 [153][166]5)"(null)  SYS2. (null)VALLEN(null)(null)STR$ LENLEFT$RIGHT$(null) ATN(null) $STR$VAL00PRINT  (null)":[153][166]5)"(null)"[166]27)"(null)
  14. 125 PRINTSPC(5)"[221]  [158]3. [211][197][195][207][206][196] [195][200][201][208] [193][212] $[196][198]00[153]  [221]":PRINTSPC(5)"[221]"SPC(27)"[221]
  15. 130 [153][166]5)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCLR":[151]198,.
  16. 135 [161]A$:[139]A$[178]"1"[167][151]8211,.:[137]155
  17. 140 [139]A$[178]"2"[167][151]8211,222:[137]155
  18. 145 [139]A$[178]"3"[167][151]8211,223:[137]155
  19. 150 [137]135
  20. 155 [153]""[166]10)"OPTION TO SKIP SONGS":[153][166]10)"OPTIONWAIT TOWAIT SKIPWAIT SONGS
  21. 160 PRINTSPC(9)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINTSPC(9)"[221] [154][217]. [217][197][211]     [206]. [206][207][159]  [221]
  22. 165 [153][166]9)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[151]198,.
  23. 170 [161]A$:[139]A$[178]"Y"[167][151]53230,1:[137]185
  24. 175 [139]A$[178]"N"[167][151]53230,.:[137]185
  25. 180 [137]170
  26. 185 [158]53152:TS[178]50688:[129]I[178]1[164]30
  27. 190 [151]SD[170]24,15:[151]SD[170]5,9:[151]SD[170]6,.:[151]SD[170]1,[194](TS[170]1):[151]SD,[194](TS[170]2)
  28. 195 [151]SD[170]4,17:[129]J[178]1[164][194](TS)[172]1.5:[130]:[151]SD[170]4,16:TS[178]TS[170]3:[130]
  29. 197 [158]31507
  30. 200 [158]52445:[158]52224:[158]53152:[151]12328,.:[151]12329,160:[158]12288:[143] TITLE
  31. 205 [129]I[178].[164]2[169]2:[151]12420[170]I,188:[151]12421[170]I,48:[130]:[158]12356:AN[178].:II[178].
  32. 210 [158]12442:[139][194](ES)[167]260
  33. 215 AN[178]AN[170]1:[145]AN[137]220,225,230,235
  34. 220 [153]"SYSRNDRND":L[178]448:[141]50:[137]210
  35. 225 [153]"SYS**":L[178]352:[141]50:[137]210
  36. 230 [153]"DEFTANTAN":L[178]80:[141]50:[137]210
  37. 235 [153]"DEFPOSPOS":L[178]387:[141]50:AN[178].:II[178]II[170]1:[139]II[178]10[167]245
  38. 240 [137]210
  39. 245 [153]"(null)":[158]12896:L[178]95
  40. 250 [129]I[178].[164]180:[151]VC[170]1,I:[151]VC[170]3,I:[141]50:[158]EC:[139][194](ES)[167]260
  41. 255 [130]
  42. 260 L[178]999:[141]50:[158]12424:[158]52445
  43. 300 [158]14488:[143] ANGELS
  44. 305 [153]"";:[129]I[178].[164]39:[153]"FRE";:[130]:[129]I[178].[164]21
  45. 310 [153]"INTABS";:[130]
  46. 315 [129]I[178].[164]39:[153]"POS";:[130]:[153]"":[158]14582
  47. 400 [151]53270,.:[158]15144:[151]53270,200:[143] TOY SHOP
  48. 500 [158]18288:[143] COUNTRY
  49. 600 W[178]20102:[158]21032:[158]12356:[158]52684:[137]625:[143] AD
  50. 610 [139][194](8214)[167]625
  51. 615 [158]12442:[139][194](ES)[178].[167]610
  52. 620 [158]12424:[158]52445:[137]700
  53. 625 [151]113,[165]L(W):[151]114,[165]H(W):[158]21075:C[178][194](142):[158]21098:W[178]W[170]C[170]1
  54. 630 W$[178][200]([200](X$,C)[170]BL$,38)
  55. 635 [153]" ";W$:[151]8214,.:[137]610
  56. 700 [158]22528:[143] GRANDMA
  57. 800 [158]26058:[143] SCROOGE
  58. 900 [153]"LOAD"[166]10)"AND NOW FOR SOMETHING
  59. 905 PRINTSPC(10)"COMPLETELY  DIFFERENT":TI$="000000"
  60. 910 IFTI$<"000004"THEN910
  61. 920 SYS53152:POKE12328,64:POKE12329,186:SYS12288
  62. 925 FORI=.TO2STEP2:POKE12420+I,179:POKE12421+I,104:NEXT:SYS12356
  63. 930 Y=CRT+17*WD+29:A=CRT+10*WD+14:SW=1
  64. 940 FORX=1TO6:C=PEEK(Y):POKEY,35
  65. 945 POKETC+Y,1:POKEY,C:Y=Y-WD-1:NEXT
  66. 950 FORX=7TO16:C=PEEK(Y):POKEY,35
  67. 955 POKETC+Y,1:POKEY,C:Y=Y-1:NEXT
  68. 960 FORB=8TO64STEP8:C=PEEK(A):Z=B/4:D=PS(SW):GOSUB995:D=PS(3-SW):GOSUB995
  69. 965 D=NG(SW):GOSUB995:D=NG(3-SW):Z=Z-1:GOSUB995
  70. 970 POKEA,C:A=A-WD*(3-SW)-SW:SW=3-SW:SYS12442:IFPEEK(ES)THEN997
  71. 975 NEXT:Y=CRT+WD*17+29:POKEY,35:POKEY-1,85:POKEY+WD-1,74:POKEY+WD,64
  72. 980 POKETC+Y,1:POKETC+Y-1,1:POKETC+Y+WD-1,1:POKETC+Y+WD,1
  73. 985 SYS12442:IFPEEK(ES)THEN997
  74. 990 GOTO930
  75. 995 FORX=1TOZ:E=PEEK(A+D):POKEA,E:A=A+D:POKEA,35:NEXT:RETURN
  76. 997 SYS12424:SYS52445
  77. 1000 SYS31208
  78. 1100 SYS53152:L=1999
  79. 1105 FORI=.TO2STEP2:POKE12420+I,53:POKE12421+I,123:NEXT:SYS12356:PRINT"[147]":GOSUB50
  80. 1107 PRINT"[147]":L=7500
  81. 1110 PRINT""SPC(10)"[150]TWISTED CHRISTMAS II":PRINTSPC(12)"[153]PRESENTS BY DAWN"
  82. 1115 PRINTSPC(9)"[154](C)  1989 STEVE EMSLEY":GOSUB50
  83. 1120 PRINT""SPC(8)"WHY NOT TRY A HOLIDAY IN":PRINTSPC(11)"SWEDEN";
  84. 1125 PRINT" THIS YEAR??":GOSUB50:SYSEC:IFPEEK(ES)THEN1300
  85. 1130 PRINT"[147]"SPC(7)"[156]PROGRAMMED BY STEVE EMSLEY":PRINTSPC(4)"GRAPHICS SCREENS BY -";
  86. 1135 PRINT"OMEGA FACTOR":PRINTSPC(24)"-KERMIT WOODALL":PRINTSPC(24)"-STEVE EMSLEY
  87. 1140 [153]""[166]4)"SPRITES DESIGNED BY SYS-KERMIT WOODALL":[153][166]24);"OPEN-STEVE EMSLEY
  88. 1145 GOSUB50:SYSEC:IFPEEK(ES)THEN1300
  89. 1150 PRINT""SPC(10)"SEE THE LOVELY LAKES
  90. 1152 [153][166]5)"THE WONDERFUL TELEPHONE SYSTEM":[141]50:[158]EC:[139][194](ES)[167]1300
  91. 1155 [153]"LOAD"[166]7)"WITH THE MUSICAL TALENTS OF":[153][166]7)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
  92. 1160 [153]"TAB(TAB(TAB(TAB(TAB(TAB(":[153]"PRINT BRUCE HAMMEL            JERRY ROTH"
  93. 1165 [153]" STEVE EMSLEY       CLOSECLOSECLOSECLOSE ED GRIMELY"
  94. 1170 [153]" M. CAJAR                J. GRAU"
  95. 1175 [153]" NICK ZELINSKY           MARK HAZEN"
  96. 1180 [153]" SHELLY MILLER           BJ POOLS":[141]50:[158]EC:[139][194](ES)[167]1300
  97. 1190 [153]""[166]3)"AND MANY INTERESTING FURRY ANIMALS
  98. 1195 PRINTSPC(6)"INCLUDING THE MAJESTIC MOOSE":GOSUB50:SYSEC:IFPEEK(ES)THEN1300
  99. 1200 PRINT"[147]"SPC(7)"[156]THE MUSICAL SCORES INCLUED
  100. 1202 [153]"DEF   GOOD KING WHAT'S HIS NAME":[153]"PRINT   HARK THE HERALD ANGELS SING
  101. 1204 PRINT"[150]   TWIST & SHOUT":PRINT"[153]   ON CHRISTMAS NIGHT":PRINT"[150]   NEW YORK KIND OF CH";
  102. 1206 PRINT"RISTMAS":PRINT"[153]   DECK THE HALLS":PRINT"[150]   THE TWELVE DAYS OF CHRISTMAS
  103. 1208 [153]"PRINT   GRANDMA GOT RUN OVER BY A REINDEER":[153]"DEF   GOD REST YE MERRY GENTLE";
  104. 1210 [153]"MEN":[153]"   PRINTGHOSTBUSTERS":[153]"   DEFWE THREE KINGS":[153]"   PRINTNUTROCKER
  105. 1212 PRINT"   [150]SILENT NIGHT":GOSUB50:SYSEC:IFPEEK(ES)THEN1300
  106. 1214 PRINT""SPC(7)"A MOOSE ONCE BIT MY SISTER":PRINTSPC(16)"REALLY!!":GOSUB50
  107. 1215 SYSEC:IFPEEK(ES)THEN1300
  108. 1220 PRINT"[147][159]"SPC(4)"PRODUCED BY REG THE WONDER LLAMA
  109. 1222 [153][166]5)"SYSSHEET MUSIC PROVIDED BY DR JAY
  110. 1224 PRINT"[129] EXTRA MUSIC DONE IN 4/4 TIME BY DR JAY
  111. 1226 [153]"CONT   PRESENTS SUPPLIED BY SAINT NICK Z
  112. 1228 PRINTSPC(4)"[153]PEANUT BUTTER IN THE DISK DRIVE":PRINTSPC(16)"FROM JIF
  113. 1230 [141]50:[158]EC:[139][194](ES)[167]1300
  114. 1235 [153]"  MIND YOU, A MOOSE BITE CAN BE NASTY
  115. 1240 GOSUB50:SYSEC:IFPEEK(ES)THEN1300
  116. 1245 PRINT"[147]"SPC(12)"[150]MERRY CHRISTMAS!":PRINTSPC(13)"[153]HAPPY NEW YEAR
  117. 1250 [153][166]13)"DEFHAPPY HANUKKAH":[153][166]14)"PRINTJOYEUX NOEL!
  118. 1255 PRINTSPC(13)"[150]FELIZ NAVIDAD!":PRINTSPC(14)"[153]BUON NATALE!
  119. 1260 [158]EC:[139][194](ES)[178].[167]1260
  120. 1300 [158]12424:[158]52445:[141]50:[137]10
  121.